1 POKE53280,12:POKE53281,11:PRINTCHR$(147): 6 PRINT"[147][145][152] AUS LUKIAN'S NONSENS-WERKSTATT [146]";: 11 PRINT"[158] VOR DEM ENDE 'NE KLEINE DENKAUFGABE!":FORZ=1TO1700:NEXT 16 POKE53280,11:POKE53281,.:PRINTCHR$(14)CHR$(8); 20 PRINT"[147][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"; 21 PRINT"[156] [196]IE [193]UFGABE:";"[129][157][157][157][157][157][157][157][157][157][157][157][157] -[197]S SIND [199]LEISVERBINDUN"; 26 PRINT"GEN VON DEN DREI [215]ERKHALLEN ([215]1[146] BIS [215]3[146]) ZU DEN" 31 PRINT" VIER [204]AGERN ([204]1[146] BIS [204]4[146]) ANZULEGEN!" 36 PRINT 41 PRINT" [196]ABEI SOLLEN NICHT MEHR [203]REUZUNGEN 46 [153]" ALS UNBEDINGT NOTWENDIG EINGERICH-" 51 [153]" TET WERDEN!" 56 [153]"CONT STR$IE (null)TRECKENFUEHRUNG KANN BELIEBIG " 61 [153]" GEWAEHLT WERDEN." 66 [153]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"; 77 [153]" ATNLLES KLAR? " 81 [151]53280,.:[153]"POKE STR$RUECKE BITTE DIE ''(null)ATN(null)CHR$VAL (null)ATN(null)(null)VAL''!" 101 [153]"PRINT# POKECOSPRINT#USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRPOKELOGWAIT "; 106 [146]197,63:[153][199](142):[151]53280,.:[151]53281,.:[153]"LOAD":[141]581 111 [153]" POKESTEPTOTO(null)WAIT STEPTOTO(null)": 116 [153]" FNWAIT(null)(null)THENWAIT FNWAIT(null)(null)THENWAIT" " 121 PRINT" [155] L1 [151][212][182][181][217][146] [212][182][181][217][146] [155]L2"" 126 [153]" LISTTAB(TAB(TAB(TAB( POKEON RND LISTONTAB(TAB(TAB(TAB(" 131 [153]" ONSTEPTOTOTOTO(null)WAITDEF W1" 136 [153]" ONSGNCOSCOSCOSCOSABS" 141 [153]" DEFTAB(TAB(TAB(TAB(TAB(TAB(" 146 [153]" POKERND" 151 [153]" STEPTOTOTOTO(null)" 156 [153]" SGNCOSCOSCOSCOSABSWAITDEF W2 " 161 [153]" TAB(TAB(TAB(TAB(TAB(TAB(" 166 [153]" POKERND" 171 [153]" STEPTOTOTOTO(null)" 176 [153]" INTCOSCOSCOSCOSABSWAITDEF W3 ": 181 [153]"DEF TAB(TAB(TAB(TAB(TAB(TAB(" 186 [153]" POKESTEPTOTO(null)WAIT STEPTOTO(null)" 191 [153]" FNWAIT(null)(null)THENWAIT FNWAIT(null)(null)THENWAIT" 196 [153]" LISTL3 POKE(null)ABSINT(null)WAIT (null)ABSINT(null)WAITLIST L4" 201 [153]" TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(";"POKE (TASTE) 206 WAIT197,63: GOSUB581 211 PRINT"[147][146][149]ES GEHT NICHT OHNE KREUZUNGEN!";"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][156]VERSUCHE"; 216 PRINT" MIT DER GERINGSTEN ANZAHL";" AUSZUKOMMEN!!" 221 PRINT"[159] [209] WIEVIEL SIND MINDESTENS NOTWENDIG?" 226 PRINT" > "; 231 GETA$:IFA$=" "THEN236: 236 POKE19,64:INPUTA$ 241 IFA$="0"THEN406 :GOSUB581 246 IFA$="1"THEN286 251 IFA$="2"THEN 296 256 IFA$="3"THEN 346 261 IFA$="4"THEN 361 266 IFA$="5"THEN 375 271 IFA$="6"THEN 416 276 IFA$>"6"THEN381 281 IFA$<>"1"ANDA$>"2"ANDA$<>"3"ANDA$<>"4"ANDA$<>"5"ANDA$=<>"6"ANDA$=>"7"THEN231 286 PRINT"[147][146][159][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]DAS WIRD NICHT GENUG SEIN.":GOSUB581 291 FORZ=1TO2000:NEXT:GOTO211 296 PRINT"[147][146] HM! [146][155] DENKST DU WIRKLICH, DAS REICHT?[144](J/N)":GOSUB581 301 PRINT" WAS NUN? MACHST DU WEITER?" 306 POKE198,0:WAIT198,1:GETA$ 311 IFA$="[144] "THEN316 316 POKE19,61: INPUTA$: 321 IFA$="N"THEN331 326 IFA$="J"THEN211 331 FORZ=1TO1000:NEXT:POKE56325,.:PRINT"[147][146][156]DU HAST BESTIMMT NICHT NACHGEDACHT" 336 PRINT"[146][150]SONDERN NUR GERATEN, STIMMT'S? NA, EGAL"; 341 POKE56325,55:FORZ=1TO2000:NEXT:GOTO436 346 PRINT"[147][146][158] NA JA, NICHT SCHLECHT - ABER NICHT DIE";" LOESUNG" 351 GOSUB581 356 FORZ=1TO2000:NEXT:GOTO211 361 PRINT"[147][146] DU GLAUBST, MIT VIER KREUZUNGEN AUS-";" ZUKOMMEN?" 362 GETA$:IFA$="[144] "THEN363 363 POKE19,64:INPUTA$:PRINT" " 364 IFA$="J"THEN366 365 IFA$="N"THEN371 366 PRINT"[147][153] WUERDE SICHER FUNKTIONIEREN - NUR 4[146] IST";" NOCH NICHT DIE" 367 PRINT" GESUCHTE LOESUNG!" 368 GOSUB 581 370 FORZ=1TO2000:NEXT:GOTO211 371 PRINT"[147] [158]WARUM, ZUM TEUFEL, HAST DU DENN '4'";" ANGEGEBEN?":GOSUB581 372 FORZ=1TO1000:NEXT:GOTO211 375 PRINT"[147][146]DU BIST DER LOESUNG[157][157][157][157][157][157][157][157][157][157][157][157][157] NOCH NICHT NAEHER GEKOMMEN!" 376 GOSUB581:PRINTSPC(12)"NICHT SCHLAPP MACHEN!":FORZ=1TO2000:NEXT:GOTO211 381 PRINT"[147][146]DAS IST ES NICHT![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] VERSUCH'S NOCHMAL!"; 386 GOSUB581 391 POKE53281,1::::::::::::::::::::POKE53281,.:POKE53280,PEEK(53281): 396 FORZ=1TO2000:NEXT: 401 PRINT"[147]":GOTO211 406 PRINT"[147][146] N U L L[157][157][157][157][157][157][157][157][157][157][157][157] GILT NICHT!!": 411 FORZ=1TO1000:NEXT:PRINT"[147]":GOTO211 416 FORC=1TO5:PRINT"[147]NEE - AUCH DAS IST'S NICHT!" 421 POKE53281,.::::::::::::::::::::::POKE53281,2:POKE53280,C:NEXT 426 GOSUB581 431 POKE53280,.:POKE53281,.:FORZ=1TO2500:NEXT:GOTO211 436 POKE53280,.:POKE53281,.:PRINT"[147]"; 441 PRINT"[147][154] [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]" 446 PRINT" [154][180] [151][169][164][164][223][146] [154][170] [180] [151][169][164][164][223][146] [154][170]" 451 PRINT" [180] [151][165][146][219][219][167][146] [154][170] [180][151] [165][146][219][219][167][146] [154][170][151]" " 456 [153]" CONT SGNLISTL1POKE(null)ABSINT(null)WAITCONTUSRUSRUSRUSR(null) CONT+ SGNPOKE CONT(null)USRUSRUSRUSRPOKE(null)ABSINT(null)WAITLISTL2CONT+" 461 [153]"CONT SGN +LISTTAB(TAB(TAB(TAB(CONTSGN (null) + SGN (null) +LISTTAB(TAB(TAB(TAB(CONTSGN +" 466 [153]" CONT SGN (null) SGN CONT(null) + SGN (null) + (null) +" 471 [153]" CONT SGN (null) SGN (null)THEN POKERNDCONTSGN(null) + (null) +" 476 [153]"CONT SGN (null) (null) STEPTOTOTOTO(null)WAIT CONT(null) (null) +" 481 [153]" CONT SGN (null) (null) SGNCOSCOSCOSCOSABSWAITDEFW1 CONT(null) (null) +": 486 [153]"ON CONTSGN (null) (null) DEFTAB(TAB(TAB(TAB(TAB(TAB( CONT(null) (null) +" 491 [153]"CONT SGN (null) (null) POKERND CONT (null) (null) +" 496 [153]"CONT SGN (null) (null)ANDANDSTEPTOTOTOTO(null)WAITCONTANDAND(null) (null) +" 501 [153]" SGN (null) SGNCOSCOSCOSCOSABSWAITDEFW2 CONT(null) +":[153] " 506 PRINT"[145] [154][180] [205] [206][150][163][163][163][163][163][163][154][205] [206] [170]" 511 PRINT" [180] [129](K.1) [159][214][146] [151][187] [159][214][146][129] (K.2) [154][170]" 516 PRINT" [180] [206] [205][169][164][164][164][164][223][146][154][206] [205] [170]" 521 PRINT" [205] [206] [181][190][190][190][190][182][146][150]W3 [154][205] [206]": 526 PRINT 531 PRINT"[145] [154] [205] [206] [206][183][150][163][163][163][163][163][163][154][183][205] [205] [206]" 536 PRINT" [205][151][169][164][164][223][146] [154][206] [206] [205] [205] [151][169][164][164][223][146][154][206]" 541 PRINT" [151][165][146][219][219][167][146][154][206] [206] [205] [154] [205][151][165][146][219][219][167][146]" 546 PRINT" [155]L3[151][212][182][181][217][146] [154][206] [205] [151][212][182][181][217][146][155]L4" 551 PRINT" [163][163][163][163][154][183][183] [129]VERSCHIEDENE [154][183][183][155][163][163][163][163]" 556 PRINT"[129]STRECKENFUEHRUNGEN SIND MOEGLICH. DIESE" 561 PRINT"VARIANTE BENOETIGT NUR ZWEI KREUZUNGEN." 566 FORZ=1TO3000:NEXT:FORC=1TO27STEP.2:POKE646,C 571 POKE211,INT(RND(0)*15)+C:POKE214,INT(RND(0)*C):SYS58640 576 PRINT;"[148] > E N D E <[146][147]",:NEXT 576 PRINT;"[148] > E N D E <[146][147]", 576 PRINT;"[148] > E N D E <[146][147]", 581 POKE54296,15 586 POKE54277,31:POKE54272,129:POKE54273,2 596 POKE54276,0:POKE54295,4: : 601 POKE54277,31:POKE54278,128:POKE54272,1 606 FORT=27TO33:FORN=126TO129:POKE54280,N 611 POKE54273,(RND(N)*T):POKE54276,(RND(T)*N):POKE54276,N 616 POKE54277,T:POKE54278,T+N:NEXTN:POKE54293,T:NEXTT 621 FORI=70TO129::POKE54273,(RND(0)*I):POKE54276,33: 627 POKE54273,1:POKE54294,I:POKE54296,I:POKE54273,0:NEXT:RETURN